home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / dynaweb.idb / usr / lib / Insight / data / config / collview.dwc.z / collview.dwc
Encoding:
Text File  |  1997-07-30  |  2.7 KB  |  84 lines
  1.  
  2. #####################################################################
  3. #####################################################################
  4. ##                                                                 ##
  5. ##             COLLECTION VIEW CREATIION                           ##
  6. ##                                                                 ##
  7. #####################################################################
  8. #####################################################################
  9.  
  10. dwScript Generic__CollectionView {
  11.     dwCall dwMakeUrlParts
  12.     set selection [dwUrlEncode [dwGetSelectionPath]]
  13.     if {$selection != ""} {
  14.         dwSet selection "/$selection"
  15.     }
  16.     set root [dwGetRootPath]
  17.     if {$root != ""} {
  18.         dwSet root "/$root"
  19.     }
  20.     set params [dwGet UrlParamString]
  21.     set query [dwGet UrlQueryString]
  22.  
  23.     if {$root == ""} {
  24.         dwSet TocUrl  \
  25.             [dwGet RootAbsUrlPath]/@Generic__CollectionTocView$selection$params$query
  26.     } else {
  27.         dwSet TocUrl  \
  28.         ../@Generic__CollectionTocView$selection$params$query
  29.     }
  30.  
  31.     dwSet TextUrl \
  32.             [dwGet RootAbsUrlPath]$selection/@Generic__CollectionTextView$params\;uf=0$query
  33.     dwSet BBarUrl \
  34.             [dwGet RootAbsUrlPath]$selection/@Generic__CollectionButtonBarView$params$query
  35.     if {[dwGet State__Frames] == 1} {
  36.         dwProcessTemplate Frames__CollectionView
  37.     } else {
  38.         dwProcessTemplate NoFrames__CollectionView
  39.     }
  40. }
  41.  
  42. dwTemplate NoFrames__CollectionView {
  43. $[dwSetRootPath [dwUrlEncode [dwGetSelectionPath]]]
  44. $[dwCall dwMakeUrlParts]
  45. <HTML>
  46.    <HEAD>
  47.       <TITLE>$[dwGetRootTitle]</TITLE>
  48.       <BASE HREF="$[dwGet BaseUrl]@Generic__CollectionView">
  49.    </HEAD>
  50.    <BODY BGCOLOR=#FFFBF0 LINK=#000000 ALINK=#008000 VLINK=#800080>
  51.       $[dwCall Generic__CollectionButtonBarView]
  52.       <H3>Contents of the <i>$[dwGetRootTitle]</i> Collection</H3>
  53.       $[dwCall Generic__GenerateCollectionTextViewBody]
  54.      <HR SIZE=4>
  55.    </BODY>
  56. </HTML>
  57. }
  58.  
  59. dwTemplate Frames__CollectionView {
  60. <HTML>
  61.    <HEAD>
  62.       <TITLE>$[dwGetRootTitle]</TITLE>
  63.       <BASE HREF="$[dwGet BaseUrl]@Generic__CollectionView">
  64.    </HEAD>
  65.    <FRAMESET ROWS="*,100">
  66.       <FRAMESET COLS="35%,65%">
  67.          <FRAME NAME="dynaweb_toc"     SRC="$[dwGet TocUrl]">
  68.          <FRAME NAME="dynaweb_content" SRC="$[dwGet TextUrl]">
  69.       </FRAMESET>
  70.       <FRAME NAME="dynaweb_bbar" SRC="$[dwGet BBarUrl]" SCROLLING=no
  71.              MARGINHEIGHT=4 MARGINWIDTH=8>
  72.    </FRAMESET>
  73.    <NOFRAMES>
  74.       <BODY>
  75.          <H3>This browser does not support frames.</H3>
  76.          <HR><BR><BR>
  77.         $[dwCall RemoveHfUrlParam]
  78.          <P><H3><A HREF="$[dwGet BaseUrl]@NoFrames__CollectionView$[dwGet UrlParamString]$[dwGet UrlQueryString]">Show the non-frames version.</H3></A>
  79.       </BODY>
  80.    </NOFRAMES>
  81. </HTML>
  82. }
  83.  
  84.